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1..' OPERATION 



INTRODUCTION 




Chapter 1 describes the monitor unit features and 
associated controls. The keyboard (Figure 3> is described 
and the/purpose of each key is explained. There is a brief 
discussion of floppy disks for those unfamiliar with disk 
handling/ Power-up and power-down procedures are provided. 
Instructions av^ given for running the VT32 Terminal 
Emulation program. A protocol for data transfer between a 
GC 1OO0 and another processor is outlined and the Graphics 
Tablet Subprogram is described. Finally, for users who have 
selected the OS-9 Pascal compiler, installation instructions 
are provided. 

Chapter 2 outlines the subroutines in the Graphic 
Routine Library, and gives instructions for linking the 
library to BASIC and Pascal application programs. 



MONITOR UNIT FEATURES 



Front Panel 



The front panel 
Master Reset switch. 



(Figure 1) contains five red LEDs and a 
From left to right, the LEDs are: 



1 * indicates a memory fault 

2 - indicates when OS-9 is operational by lighting 

briefly and then extinguishing 
TX - indicates when system is transmitting data 
RX - indicates when system is receiving data 
? - indicates that prime power is applied to the 

unit 



MASTER RESET 
re-boot 



- push-switch that causes system to 
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Rear Panel 




The v*ar panel (Figure 2) contains the following items: 



ON/OFF 
FUSE 3A SB 
MODEM 

PRINTER 

TABLET 

CONTRAST 



BRIGHTNESS - 



power switch 
slow-blow fuse 

connector for serial communications 

cable 

connector for optional printer cable 

connector for optional tablet cable 

monitor control; display contrast between ^ 

black and white increases as the knob is 

rotated clockwise 

monitor control* display brightness 

increases as the knob is rotated clo^wise. 







"~\ 




> 




k) 
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KEYBOARD FEATURES 
Text Keys 



The arrangement of keys on the OC 1000 keyboard is 
similar to that of an ordinary typewriter. In conjunction 
with the standard QWERTY keyboard* there arB additional keys 
having specific functions* described below. 



CTRL Key 

The CTRL (control) key is used in conjunction with 
other keys on the keyboard to generate control codes. 
Control codes can be used as defined in the OS-9 operating 
system when running OS-9 programs* or can be defined in the 
programmer's own software. 



LOCK Key 

+ - • , 
The LOCK key functions as a shift-lock. When the LOCK 
key is pressed, the keyboard remains shifted until SHIFT is 
pressed. The LED on the LOCK key lights when it is pressed. 



3 



T 



SHIFT Key 

Alphabetic keys: Pressing one or both SHIFT keys 
causes an upper-case code to be transmitted. When neither 
SHIFT key is pressed* a lower-case code is transmitted. 

Non-alphabetic keys: Pressing one or both SHIFT keys 
causes the code for the character at the top of the key to 
be transmitted. When neither SHIFT key is pressed* the code 
for the lower character on the key is transmitted. 

The SHIFT key shifts all keys having shifted functions 
(ie the cursor keypad* the main keyboard* the top row of 
keys). 



Keys having no upper case 
when the SHIFT key is pressed. 



function ar^ not affected 



1 



fS%^" 



f* 



-<»*vjif}m;.^4 
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ESC Key 

The ESC (escape) key returns the hexadecimal code IB 
and is used by some programs as a termination character. 

RETURN Key 

The RETURN key acts as an end of line character and 
returns the hexadecimal code OD. It generally acts as a 
carriage return line feed* but depends on the software 
program for its function. 




LINE FEED Key 

The LINE FEED key moves the cursor down to the next 
line* and returns the hexadecimal code OA. 

RUBOUT <Key 

When the RUBOUT key is pressed* the last character 
entered is deleted (erased from the screen). It returns the 
hexadecimal code 7F. 



REPT Key 

• When the REPT (repeat) key is pressed, any other key 
pressed is repeated at the rate of 10 chars/sec. 



ALPHA Key 

The ALPHA key toggles the system between alphanumeric 
and graphics mode of operation. The default state is 
alphanumeric. 

The following function keys ar9 currently used only bu 
the VT32 Emulator: 



v^ffe v , _ 




SETUP 
RESET 
. ' ECHO 
■ LINE 
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SETUP Key 

Pressing the SETUP key allows the user to change the 
following: 

- modem receive and transmit baud rates 

- printer baud rates 

- parity 

- number of stop bits 

To set the RX baud rate for the modem port, press R on 
the keyboard. Each time R is pressed, a baud rate appears. 
Stop pressing R when the required baud rate appears. 
Available RX baud rates for the modem port are 75. 150, 30oi 
600, 1200, 2400, 4800 and 9600. 

To alter the TX baud rate for the modem port press T 
until the required baud rate appears. Available baud rates 
are 75, 150, 300 or same as RX (ie TX»RX>. 

To alter the baud rate for the printer port press P 
until the required baud rate appears. Available baud rates 
for the printer are 75, ISO, 300, 600, 1200, 2400. 4S00 and 
9600. 



To set the parity for the modem port, press A until the 
required parity appears. Parity can be odd, even or NO. 



The number of stop bits for the modem port can 
at either 1 or 2 by pressing S. 



be set 



ECHO Key 

Pressing the ECHO key causes the character entered to 
appear on the screen. The default state is no echo (or echo 
off). 



LINE Key 

The LINE key toggles between on-line and local 
operations. When the OC 1000 is on-line, keyboard data is 
transmitted over the modem port to a remote computer. When 
the OC 1000 is in local mode, characters entered 'on the 
keyboard are only displayed on the screen. 



1w 
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Cursor Control Keypad 



keys 



The VT52 Emulator uses the following cursor control 



- up arrow (* > 

r right arrow <->) 

- left arrow (<-> 

- down arrow (^) 
. - home (*> 

^Pressing a specific direction key once moves the cursor one 
character in X or Y, depending on the direction indicated on 
theuvlcey. 

: ; Passing the * (home) key causes the cursor to return 
fto the top left corner of the screen. 



A: 



RESET J<ey 

When the RESET key is pressed* control is returned to 
the OS-9 operating system. 



tMumeric Keypad 



the mathematical 
special codes for the 
The ENTER key returns 
the system does not 
the keypad and those 
software can be written 
code returned to determine 
has been used. 



keys on the numeric keypad transmit 
numbers O to 9 (hexadecimal DO to D9). 
the hexadecimal code 8D). In general/ 
distinguish between numbers entered on 
entered on the keyboard. However*, 
to test the high-order bit on the 
whether the keypad or keyboard 



Function Keys 






function keys include the top row of keys, the numeric 
keys and the cursor controls (a total of 45 keys). As well/ 
the cursor control keys and the middle 15 of the top row of 
keys can be shifted. The function keys* their location and 
their hexadecimal codes ar^ shown in Figure 4. . 
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FLOPPY DISK HANDLING 

.Th'e:dr'ive door is opened by pulling outward on its 
tfottow e4$e. The floppy disk is then slipped into the slot 
with the : label upwards and towards you. The edge of the 
floppy d$sk with the oval cutout in its cover must enter the 
dri^e firsfc. The edge with the label must enter the drive 
last.. .;/ 

To insert the floppy disk, push gently until it is 
entirely in the drive. Close the drive door by pushing it 
do«im again. 



To remove the floppy disk/ open the drive 
carefully pull the floppy disk from the drive. 



door and 



WARNING: Do not remove 
drive is illuminated, 
and its information. 



a floppy disk when the LED 
The result can be damage to 



on 
the 



the 
disk 



Write Protect Feature 



The notch on the side of the floppy disk allows it to 
be write protected with a write protect tab. A 
photo-electric sensor detects the presence of the tab on the 
notch and inhibits writing. When there is no write protect 
tab on the notch, the sensor detects the notch and allows 
f the disk to be written to. The write protect tabs are 
supplied with the floppy disks. 



WRITE PROTECT TAB 



ACTION 



Present 
Absent 



Read Only 
Read and Write 



Storage 



Floppy disks must be Carefully stored away 
arytl extremes of temperature. They should 
vertically in their paper pockets. 



from dust 
be stored 



EARNING: Placing a floppy disk on a graphic tablet destroys 
all the information on the disk. Keep floppy disks away 
from all magnetic fields. 
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POWER-UP PROCEDURE , J'" 

The power switch is located at the right #ear^cdrf»er of 
the unit Ensure that the power cable is ,-p lugged in to- -a 
™?7~2 3 7 pron 9* d 11S v ootl °* *"< that iher^odem (or 
noil-modem) 1S connected if you intend to commulhi'cate with 
other systems. . ^ . ." 

■-: ':''^:.'? ■""•■:;■;■• 

- Load the OS-9 system disk in drive O (the uffoer ' 

drive) ■■£"' ' 

- Press the power rocker switch to ON * "I, 

- The RUN LED illuminates 

- LEDs 1 and 2 will briefly illuminate and then 
extinguish while the system performs a memory v 
integrity test. ^ 

- The disk drive O LED and LED 2 then illuminate 
while the system is read from disk. 

NOTE: Listen for the clicks indicating that OS-9 is 
loading. If no clicks are heard, ensure the system disk is 
in the drive, as the drive LED is on whether or riot 'a disk 
has been inserted. 

The following display lines appear on the monitor:. 

Display: Norpak Graphics Workstation 
(month, day, year, time) 

Display: SHELL 
Prompt: 0S9: 

POWER-DOWN PROCEDURE 

- Remove and store the disks 

- Press the power switch to OFF 



X 



^>* 
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VfS2 TERMINAL EMULATION 
."..f ytS2 Emulator Program 



W .. K 



-^ > ^M ! re attempting to run the VT52 Emulator, ensure that 
' 7 ^- ■ Tt~ ? P „ *l Tl * 1 interface on the back of the monitor is 
^;,ifw««e*«; to a modem (or null-modem), which is then 
^'f!""!! te * T *° *£• r ? mote com P»ter communications channel 
■'■' ?'J£-V?***\h The VTS2 Emulator resides on the OS-9 system disk. 

:■',. ^ n response to the OS-9 prompt, 
Type: VT32 <CR) 



.% 



Thejiost should reply with a prompt. If there is no prompt, 
on the- keyboard, 



Press; 



(SETUP) 



_^ The current baud rates, parity and number of stop bits 
appear across the bottom of the screen. Ensure that they 

a . r ?, co;l *X» Ct * If they ar * not ' change them by following the 
instructions for the SETUP ' 

section under Text Keys. 

Once they are correct, 



key in the Keyboard Features 



Press: 
Press: 



(SETUP) 
(RETURN) 



^ a .,if2 t r .«*P° nda wi th a prompt. The OC lOOO system is now 
in VTS2 mode. 

To return control to the OS-9 operating system at any 

time, on the keyboard * 



Press: 



(RESET) 



.The. following VT52 features are not included in 
GC lOOO VT52 Emulator software package: 

- hold screen 

- alternate keypad 

r.'-'f&r • hardware tabs 



the 



$*#& 
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SIMPLE LINK DATA TRANSFER PROTOCOL 
INTRODUCTION 



The Norpak Simple Link Data Transfer Protocol is/ a* 
conununi cat ions package enabling the transfer oV aI&II, PBI 
and binary files between a OC lOOO processor arid another 
processor (eg. a PDP-11). The package is based on two 
programs: LOCAL/ running in the local processor an<* REMOTE' 
running in the remote processor. The local processor 
initiates the transfer process, allowing the user to emulate 
a terminal to the remote processor. When LOCAL is used "in 
conjunction with REMOTE, the user can initiate any number of 
file transfers. The LOCAL and REMOTE routines control the 
transfers so that errors are minimized. 



Refer to Appendix B for a more detailed 
this protocol. 



discussion of 



NOTE: 'Local ' refers to the processor to 
operator's terminal is attached and 'remote' 
processor at the other end of a communications 



which the 
refers to the 
link... I:-- - ,; 



LOCAL Terminal 

The LOCAL routine is ignorant of the actual processor 
and operating system it is communicating with. LOCAL "scaW 
the data coming from the remote end to detect a data 
transfer initiated by the REMOTE routine. Using the s^me 
operating system in both processors can result in confusing 
operator prompts. "... ' 

NOTE: When LOCAL is operating under RSX-11M it may drop! 
characters from a remote processor emulating a terminal, 
because RSX-11M LOCAL uses an AST routine to intercept data 
from the remote end. The communications protocol portion of 
the LOCAL routine is designed not to lose data because data 
from the remote end is always solicited. 



LIMITATIONS 



The operator must be responsible for some error 
recovery and detection. The communications system provides 
error detection information. The highest level of error 
recovery is an operator-initiated re-transmission> of the 
file. 
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PRORATION 




} ft 



-k *k ^ J h ^u X ? P ro *°col can be initiated by either end 

JJi-W-.* *i nk# the local processor should always be a slave to 

. thj^emote processor. The operator runs a program on the 

remote processor which controls the transfer of files to or 

»J22 5!. Cal p r oCM8or - This Program requests filenames 
r: ^from ^the operator and determines the direction of the 
. transfer. 

■•.» 

A file transfer is initiated when a filename packet is 
successfully received by the local processor. This is 
J?ii 0W ?!* ^ a variable number of data packets containing . the 
fvle xnfortnatxon (transmitted by either the local or remote 
processor, depending on the direction of transfer) Each 

«^?-* PaC T!* con **? ns 63 Ntes of data, except the last 

packet. The receiving processor detects end-of-file <EOF) 

'mVI /f* , r !« eivM * <**« packet with less than 63 bytes of 

?? m s^in dinS 3 P ! Ck ? t With ° data b « t8s if "pessary). 
■tlllJl 5?^ request is received for a file which does not 
, jjis.*,. the processor detecting the error terminates the 

transfer with an <EOT> <CR>. 



■ * ■■";* -S 



Each 
is d is* 1 
inhibited 
Cerent 
can abor 
inc 1 lid es 
^received 
(**or the 
transfer 
onVth* os 



time a file transfer begins, the name of the file 
ayed on the local user terminal. Keyboard input is 

at this point* but the operator can request the 
status of the transfer by pressing any key and/or 
t the transfer by pressing (Ctrl) C. Status 

the number of blocks successfully transmitted or 

and the number of retransmissions due to errors 

current file transmission). At the end of each 

this status information is automatically displayed 

er terminal. * 




. ;.> " t 



■•:«*.- 
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Using the Protocol 






OC 1000 as a remote processor: 






vi'ffil: 



Connect an RS-232 cable from the GC lOOO modem ppt*4V 
(top serial port) to the modem port of >the .'o-feh^r-' 
processor. ' • '.'/. 

On the OC lOOO, invoke the OS-9 Shell command 
interpreter using the following command (in 
response to the OS-9 prompt): 

Type: SHELL </m >/m »/m 

* ' '■■ •■■ . : ".', 
The above command initiates an OS-9 process 
enabling the other processor to appear to be a 
terminal to the OC 1000. The OC 1000 can now .^n 
tasks using the REMOTE program. ^ - 



GC 1000 as a local processor: 



Connect an RS-232 cable from the GC 1000 modem port 
(top serial port) to a remote host. ./ ^ 

Insert the VT32 Emulator disk in drive 1 and '.rutt.-' 
the program according to the instructions given in- 
the section on the VT52 Emulator. 

The GC 1000 now appears to be a terminal to 
the remote processor. From the GC 1000* ensure 
that the files to be transferred from the remote*' 
processor are in the data directory. Use the CHD 
command to change the data directory if necessary. 



-**;• 



<i» 
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!»■ ^ / - 


•'.;f4::' •■'•'•' ••..'V-. •''•J' ,"•' 'i 

'•:■..>•■•■ '-•■.■ I*'-'' 





/>v 



•.:•>. 



File Transfer - Local GC 1000 to remote processor: 
1. In response to the OS-9 prompt, 

Type: RMO filename, ... filename 
(80 characters maximum) 

where each filename can have one or two optional 
qualifiers, as follows: 



.•'■* 



2. 



3/ 



/A 
/P 
/B 



/S 
/R 



ASCII file 

PDI file (default) 

binary file 

and 

send file to remote (default) 
receive file from remote 



The specified qualifier remains in effect until a 
new one is used. 

Press any key on the keyboard to obtain the current 
transfer statistics while the transfer is in 
progress. 

To abort the transfer, press (Ctrl) C. 

When file transfer is complete, the remote 

processor issues another RMO prompt. The user can 

then enter another list of filenames. To exit from 
RMO, 

Press: (Ctrl) C 
Press: (RETURN) 

OC lOOO is still a terminal to the remote 
processor. To exit from the Shell program, 

Press: (ESC) 
To exit from the VT52 Terminal Emulation program, 
Press: (RESET) 
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GRAPHIC TABLET SUBPROGRAM 

v. ;■ r 

•4.u T !!! Gra P hic ^blet Subprogram, when used in conjunction 
with the Graphic Routine Library, allows the user to write 
an application program which accepts input f rout, the < tablet; 
and thereby draw the shapes involved in the creation 
computer graphics. 

The user must create a data area on the user disk u 
a data module. The module start address must be store 
memory address DDFC, DDFD (hex). The Tablet Subprogram 
updates the current stylus position and status at 
following offsets into the user data module: 




n of 




s&ag 


■■*! . •■ ' 


d at 




then 


. V' ' - 


thS 





IB, 1C (hex): 
ID, IE (hex): 
IF (hex): 



stylus position X (0-255) 
stylus position Y (0-255) 
stylus status: 
FF (hex) « no data read 

« stylus up 

1 • stylus down 



i : t * r ' * ..■* 




: / 


\ 


« «T 




'^Sr^B 




V; '■*■ .; 


.'■- "■••'• 






'. t. 


•k 






^.v , 
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OS-9 PASCAL INSTALLATION GUIDE 
Introduction 









&i 



1 JK 



-,<* 



™ <klt user has 3 « lec *«d model GCS-SYS-161 of the 

GC. 1000 system, the following Pascal Installation Guide is 
required to run the accompanying Pascal software. 



"' This section assumes a familiarity with 
programs under the OS-9 operating system 



running 

understanding of the use of data'and'execution'Tirectories" 
I*, necessary, familiarize yourself with this information 
before proceeding. 

The following files are supplied on disk: 



•''-. :< 



FILE* NAME 



USE 



Pa.scal_Compiler 

. Pascal Errs 

* *-* * ■ ' -• 

P&scalN 
Pascals 
"A .Pas c a 1 T^PRUN 

': V'."- * ■■ " * 

, PascalTj»RUNX 
PascalTJIODL 



P&scalE 


PascalDefs 


Support 


Supportl 



OS-9 Pascal compiler program. 

OS-9 Pascal compiler pcode file. 

Text file containing error messages. 

Nonswapping pcode interpreter. 

Virtual code swapping pcode interpreter. 

Native code translator pcode file. 

Native code translator pcode file using 
machine code external routines for 
enhanced performance. 

Native code external routine module for 
use with PascalTJ=>RUNX file. 

External routine mapping program. 

Text file containing assembly language 
equates required to assemble native code 
programs. 

Full support package module. 

Support package module without routines 
to support SIN, COS, LN, EXP/ ATAN, ,and 
SQRT calls. '~ 



:-'i 



rC.;- 



4- 
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H%,-? 



Support2 



Support package module without the 
routines named in Supportl above, and also, 
uiithQut routines to support real number 
addition, subtraction, and division/ and 
calls to the standard functions and ' 
procedures: AFRAC, AINT, FILESIZE, *'• 
CNVTREAL, SEEKEOF, write of a real number ' 
and read of a real number. -:r 



■ft>:. . 






Several sample source programs are 
Their file names have a "_Soorce" suffix. 



also, included. 



".:;■#• 



*.u n l*i°Z 9 atteffl P tin 9 *o «s« any of the above filesV^fead 
the OS-9 Pascal User's Manual thoroughly. After reading the 
manual, follow the product installation instructions given 



Installation Instructions 



,. • ™ e P r097 * a,n3 supplied with the OS-9 Pascal package- are 
briefly described below, and the names of any files required 
in either the execution or data directories when the program 

*/!!? f r * 9iv * n - A Pa » cal User's Manual is also supplied 
with the Pascal package. *■"..,. 



r;^i 



PASCAL 



*■, 2* Ca1 , 1 !! the actual OS" 9 Pascal compiler program. f*e 
file Pascal_Compiler must be in the current execution 
directory when Pascal is run. However, if the file 
PascalErrs is not in the current execution directory also, 
the text corresponding to most error messages does not 
appear. The following files should all be located on the 
same disk within the same directory: 

- Pascal 

- PascalErrs 

- Pascal_Compiler .. ■'.■;.".' 

When the Pascal_Compiler file is contained within a single 
segment on the disk, the compile time is significantly 
decreased. A utility program (VolStats) is supplied^ in 
source^ form and can be used to determine the number of 
segments contained in any file. This program is described 
■in Chapter 13 of the Pascal User's Manual. Chapter 2 of the 
same manual describes how to run the Pascal program. 
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»'•■' 



'"1 



■■%■>■ .. ■ 




.t» 



fASCALN 

PascalN is the pcode interpreter program and requires: 

- one of the appropriate support package modules 
loaded into memory before PascalN is executed 

VV-'.\ 

• * h * appropriate support package in the current 
execution directory with the name Support. 

;;>,.... If the file PascalErrs is not also in the current 
execution directory, the text corresponding to most error 
messages does not appear. The files PascalN, Support, and 
PascalErrs should all be located on the same disk within the 
same directory. The various support package modules are 
.discussed below. Chapter 3 of the Pascal User's Manual 
describes how to run the PascalN program. 

PASCALS 

, <r < ".- 

'A Pascals is the virtual code swapping pcode interpreter 
program. Other than its code swapping function it is 
identical with PascalN described above. Chapter 3 of the 
user manual describes how to run the Pascals program. 



PASCALT PRUN 



PascalT_PRUN 
pcode file and is 
not be located on 
directory to be 
requirements for Pascals 
file PascalErrs must be 
PascalT_PRUN requires: 



is the optimizing native 
executed using Pascals, 
a particular disk or 
run properly. However, 
must be met; in 



code translator 
PascalT_PRUN need 
in a particular 

the installation 
particular the 



in the current execution directory. 



- the support package module Support or Supportl 
loaded into memory before PascalT_PRUN is 
executed ~ 



or 



,#_kI^ 




- one of the two support package modules existing 
in the current execution directory in the file 
Support when Pascal_PRUN begins execution. 



*.;• 



; ... V 
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As PascalT_PRUN is run with the virtual code swapping 
interpreter, it must remain online throughout its execution 
Do not remove or change the disk containing the Pascalf PRUN 
file while the program is executing. The use of the native 
code translator is described in Chapter 5 of the Pascal 
User's Manual. 

PASCALT_PRUNX ' v . r ..^ 

4 

PascalT.PRUNX is essentially the same file as 
PascalT_PRUN except that some of the critical routines have 
been translated into native code to improve the execution 
speed of the translation process. Since the optimizing 
translator can perform large optimizations, some programs 
take a long time to run. Therefore this enhanced version is 
valuable on those systems with enough memory to .use 
Pascal T_PRUNX. The module containing the native code 
routines is contained in the file PascalTJIODL and • must vpV 
either pre-loaded into memory or be in the current execution 
directory before PascalT_PRUNX can be run. Otherwise, .'$h* 
same considerations apply as for running PascalT PRUN,?/ This 
enhanced version can run several times faster than X the 
unenhanced version. Since it requires an additional native 
code module in memory during its execution, it requires more 
memory to run than PascalT.PRUN. If the system does not 
have much random access memory (RAM), there may be improved 
performance running PascalT PRUN. 7 




^ 



m 







PASCALDEFS 

\-\ * . \( 

PascalDefs contains the assembly language EGUates 
required to assemble native code programs produced by the 
PascalT program. The PascalDefs file can reside on any 
drive in any directory. PascalT puts a "USE Pascal Defs" 
statement at the beginning of its output code. This 
statement must be modified to refer to the correct location 
of PascalDefs when the native code is assembled. 



>£: 




/ 85-06077-01 / GC 1000 OPERATING INSTRUCTIONS PAGE 25 



PASCALE 



J* 



'*., calE 13 the utilit ¥ program which provides pcode 
file*, containing EXTERNAL routine references. These 
references have the path names and internal information 
rejoired to properly link to the modules containing the 
native code versions of any external routines. PascalE 
■i" requires: . "**™* & 

■ V' I 

- Support or Supportl loaded into memory 
before PascalE executes 



or 




..?v* 



- one of the two support package modules 

existing in the current execution directory 
in the file Support when PascalE begins 
execution. 

The file PascalErrs should also be in the current 
pex.*cution directory. The use of PascalE is described in 
iter 3 of the Pascal User's Manual. 



,.NOTE: Supports does not contain the routines required 
. run PascalE. * 



to 



V» . ' ' * . 



^iSUPPORT, SUPPORT1, SUPPORTS 

^ «J h !*f m " contain **»e runtime support routines to run 
.any OS-9 Pascal program. The file Support requires about 9K 
bytes of memory and contains the full complement of support 
routines. HK 



Supportl requires about 7K bytes of memory but does 
support the following functionsf SIN. COS, ATAN, EXP. LN 



not 
and 



Supports requires about SK bytes of memory and does not 
support the following routines: calls to AFRAC. AINT 
CNVTREAL, FILESIZE, SEEKEOF; routines to support reli 
number addition, subtraction and division, reading and 
writing real numbers; all routines not supported bu 
Supportl. * 




& 
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Multi-User Environment 




•»• 



When any QS-9 Pascal program begins execution (except 
for the Pascal compiler) it first ensures that one of the 
support packages is in memory. If not, the file Support' is 
loaded from the current execution directory. In a 
multi-user environment, if one user runs a Pascal program 
and causes Supports to be loaded into memory, then -other 
users running Pascal programs must use Support2 until "ft is 
unlinked from memory. A Pascal program assumes that the 
support package in memory is the required version To 
prevent confusion. a rule can be enforced that the only 
support file used be the full function package Support • 
This way no one will find that a required support routine is- 
missing when a program is executed. 



<*% 



Single User Environment 



'.*f> 



.^5;"^ • 



•*,« .•; 



way i s 
OS-9 -LOAD 
remove that 
on program 
support packages 
that file can, be 
can also b"e 
is found ixn 



In a single user environment there are two way t of 
using the three support files effectively. The best 
to pre-load the required support file (using the 
command), before program execution, and to 
support package using the OS-9 UNLINK command 
completion. Alternatively, if one of the 
is used more frequently than the other two, 
renamed Support and the other two files 
appropriately renamed. If no support package 
memory when an OS-9 program begins execution, the filo 
Support in the current execution directory is loaded. * If 
the three support packages have been renamed so that the 
original Supportl file is now called Support, the default 
support package load will then get the Supportl package. In 
this case the renamed file originally called Support must be 
manually loaded if the full support package is required. 

NOTE: The OS-9 Pascal Compiler program (Pascal) does not 
use the support packages. The support packages need not be 
online or pre-loaded when compiling a source program. 




£ 




*'['"- .s\ *.*•• ^ , - 












'?,V'i 



rf*: 




NORPAK / 85-06077-01 / GC 1000 OPERATING INSTRUCTIONS PAGE 27 

2. GRAPHIC ROUTINE LIBRARY 
INTRODUCTION 

■ -«.* Th !. 0C f 000 S^Phic routine library (GRAPH. LIB on the 

wSl!h Ji l ir*h ry ° 1 th9 . SyS * em di3k) «"***** of subroutines 
.■2i -?«? ^Plication P™9™nmer to draw pictures on 
TAi.l II y ' The •*"»"««»•• *" the graphics library are 
called from programs written by the user, and follow the 
conventxons used in the Presentation Level Protocol, 
Videotex Standards, described in Appendix C. This section 
outlines all the subroutines. 



v Depending upon the subroutine called, the 
interpret the arguments passed to it and 
appropriate Picture Description Instruction 
which is then sent to the display 
aisctissed in Appendix C. 



processor. 



library will 

construct an 

(PDI) string 

PDIs arB also 






Amplication Programs 



The GC 
and BASIC 
deals with how 
Pascal. 



lOOO graphic library interfaces with both Pascal 
application programs. The following explanation 

application program written in 



to run an 



;..;.. In the Pascal application program, the "PROCEDURE" 
lines near the beginning (lines 14 to 38) ar& included to 
inform the Pascal compiler that these routines ar 9 external 
to the application program. In this example, all librarti 
subroutines are declared; however, only those used need be 
mentioned. 



The "TYPE" section 
polygon vertices and 
lines may be omitted if 



(lines 4 and S) defines arrays for 
ASCII character strings. These two 
neither subroutine is referenced. 



A sample BASIC 
Appendix A. 



application program also appears 



in 
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Compilation 



f 



Pascal 



The compiling of the application is 
normal Pascal compile. 



identical to a 



i.e. PASCAL < APPLICATION. PROGRAM #16K 

Since the application program calls subroutines in the 
graphic routine library, the compiled application program 
must be linked to it. To link the program to the graphic 
routine library, issue the following command line: 

PASCALE </dO/GRAPH. LINK : PCODEF #16K 

where GRAPH. LINK is the file containing all the information 
required by the linker. a " 0, V 

To run the application program, issue the following^ " : 
command line: * , .,-^zr"*. ' 



PASCALN PCODEF #16K 

NOTE: The graphic library writes 
information to OS-9 output path 1. 



all 



its PDI 



.*''.;?%■,. 






BASIC: , M i : 

The graphic library can also be accessed by a BAS^ S 
program. To invoke the BASIC system consult the OS-9 BASIC 
manual. 

When running a BASIC program, all routine calls are 

}£tttI, C ™ *° **!! 08 L in Pa8cal - A * i" a Pascal routine, 
INITIALIZE must be the first routine called. The BASIC09 

H???l Tr£ ad * J NIT1ALIZE *'0" *"e execution directory. When 
INITIALIZE is loaded, all other routines required ^re loaded 



,*i* 



i 
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^>. ■:; 


: V : .' -'. 


3' 


v' -' "'V 1 




'*v* 


v ..-. - 






v&* 


* i- 


'N'.O ' 




- % 


" % .^ 


'*'&*'•': 


"!*•.*, 






:».',:.' 


w - . 


• ^Tr.'' 






i.-JL-", 


.\ 




! "V ».'.'»- 


>>• 


,*_ 


•vii>^ 






.:-v v' 







GRAPHIC LIBRARY: 
MISCELLANEOUS SUBROUTINES 



INITIALIZE} 



This procedure links or loads a data module, named DF, 
used for necessary global data. At the same time all values 
dve set to their defaults. 



This must be the 
application program. 



first routine called by 



the 






'TERMINATE 



W' 







Thi3 Procedure unlinks the data module, named DF* in 
; /; v :; r ! pa I at j° n t f ? r the termination of the application program, 
,^,^nd should be the last called by the application program. 

4oMAIN (RES: integer); 

This procedure defines the resolution (RES) of the 
graphics terminal. The value of RES can be in the range of 



t 1 to 5# with a default value of 3. 



..*t 






The following table equates the value of 



4". r f Screen 


resolution 
RES 




1 

2 
3 
4 
S 



RES to the 



resolution 



7 

31 

395 

2047 

16383 



(default) 



Since the RES value is required in the conversion of 
co-ordinate data to PDI form, it is essential that the 
resolution required matches the co-ordinate system used 




SET_POINT (X, Y: integer); 

This procedure defines the start of the next draw 
command. SET_POINT is no longer in effect after completion 
of the draw. 

The co-ordinates. X, Y are interpreted as absolute screen 
co-ordinates. 
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CURSOR (0NJ3FF, STYLE: integer)} 



This 
cursor. 



procedure allows the independent use of the 
th« «,.,.•.,• cursor win appear at a constant position on 

proc^urr^caller ^ '* "^ "*"" "* V"W£ 



3J tL !?? y ; e t d * s P la y ed i" one of two styles (O to 

3K The following table shows the relationship between the 
parameter for style and the type of cursor- 



O 

1 

2 
3 



underline cursor (default) 
block cursor (not implemented) 
cross-hair cursor 
custom cursor (not implemented) 






SET_CURSOR (X, Y: integer )j 



% 






*h. I procedure sets the cursor to a desired posiiio*^ * 
the screen. The cursor will not move from this position ; 
until another SET.CURSGR procedure call has been mldS ! 



■?•'•;. ... 



co-orlJn'ates ^ 1 "**" *'* ™ interor « ted * s absolute serein 
The default cursor position is at X=0, Y«0. 

RESET_SCREENi 

hT^wT hiS p ™ C8dure eras »* **• graphics screen (i.e. set ti 
black), sets all graphic attributes to their default, sets 
the cursor position to X-O, Y-O, sets the current drawing 
positxon to X=0, Y-O, and turns the cursor off rawing 



CLEAR; 



V 



lackI hlS prOC8dore e ™ses, the graphics screen (i.e. set: to 



>m 
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r* 



GRAPHIC PRIMITIVES SUBROUTINES 









Current Draw Position 
y ■■ ' 

The Current Draw Position is the starting point of the 
jKrr^ draUI COfflm * nd - This starting point is dependent upon 
> .the following conditions, given in order of importance: 

v 

1. if a currently outstanding SET_POINT is evident, it 
is taken to be the Current Draw Position of the 
Current Draw Command. 

2. if a SET_POINT is not in effect and the cursor is 

on, the position of the cursor is taken to be the 

Current Draw Position for the Current Draw Command 

| The position of the cursor is not altered by the 
draw. ' 

3. if 1 and 2 are not true, the Current Draw Position 
is taken to be the position left at after the last 
draw, or the last position of the cursor if this is 
the first draw command issued since the cursor had 
been turned off. 






POINT; 



.-^•-'V 



■■■■'< This procedure displays a point (1 pixel) at the 

•Current Draw Position. 

i Color is the only attribute affecting this subroutine. 



LINE_REL (DX.DY: integer)! 

L'Vj'- - 

jl ■■• This procedure draws a line a relative distance (DX, DY) 
^starting from the Current Draw Position. 

The attributes affecting this procedure am: color, 
... Iine-»style, and line-width. 

5 The Current Draw Position for the next draw issued is 
set to the end of the line if SET_POINT is not issued and 
the cursor is off. 



RECTANGLE (DX, DY: integer); 



This procedure draws a rectangle starting at the 
.Current Draw Position, with a relative width (DX) and a 
relative height (DY). 
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The attributes affecting this procedure are: color, 
line-style, fill, fill-type, high-light and line-width. 

If SETJ»OINT is not issued before the next draw and the 
cursor is on. the Current Draw Position will be the opposite 
corner along the X axis. " . 

POLYGON (N: integer, VAR VERT: ARRAY CO. . N*2J OF INTEGER) ' 

This procedure draws a polygon from the Current Draw 
Position, with "W relative vertices. The array VERT must" 
be arranged so that element 1 is DX1, element 2 is DYi, ••■&&*« 
element 3 is DX2, element 4 is DY2, etc. 

*-,, T ?* attl *i«>»t»* affecting this procedure are: color,? 
fill, line-style, fill-type, high-light, and line-width. 

If SET_POINT is not issued before the next draw and tfyi 
cursor is off, the Current Draw Position will be ttfe 
starting point of the polygon. 






Y 



'9 ' v i ' 



"7K -,- j 



ARC <DX1,DY1,DX2, DY2: integer) 



.*.- 



This procedure draws an arc starting at the Current 
Draw Position, passing through the relative points <DXl,DYl) 
and finishing at the relative point (DX2, DY2). 

The attributes affecting this procedure are: color^ 
fill, line-style, fill-type, high-light, and line-width.''. 

If no SET.POINT is issued before the next draw and * tife 
cursor is off, the Current Draw Position will be the 
finishing point <DX2, DY2) of the arc. 

CIRCLE (DX, DY: integer); 

„* ,nJ h i^ Pr °f ed i!T e draw8 a circle wi *h * relative diameter 
of <DX, DY), starting at the Current Draw Position. 

The attributes affecting this procedure are: color, 
fill, line-style, fill-type, high-light and line-width. 

If SET_POINT is not issued before the next draw and the 
cursor is off, the Current Draw Position will be the 
starting point on the circle. 
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'*t.v.-,.." ;' . V 



ATTRIBUTE SUBROUTINES 






■.a 



"■ ; ;'"-;«v ; ,.-^ 



sa 



SEL.COLOR (VALUE: integer); 

■ This procedure selects a position in the color look-up 

tables (LUT) and uses the color values found at this 
position as the current drawing color. 

UAriiff T !!!/' ,lUi « ed l : U T„ entr, ' may b * ™*erenced by setting 

VALUE between O and 13. * 



^SET^CQLQR < RED. GREEN, BLUE: integer); 



This procedure re-defines the color value at the 



» .*» position xn the LUT last specified by SEL_COLOR. 



>>*''-.''', 




'*■ 






SiA^L ? i "* ° XS n ° Color and 2SS is ful1 intensity 
of a given color. * 



V 



F*ILL(ONJ3FF: integer); 

This procedure sets all future draws of rectangles, 
* r "' • Circl »« «"«* polygons to appear filled in the current 
t ii l— type. 

1 = oI he ValU<l ° N - 0FF is ° or l ' where ° * °** default) and 




LINE_STYLE (VALUE: integer); 

This procedure sets the LINE_STYLE for all future draws 
of line, arc, rectangle, circle and polygon. 

■ . The argument VALUE may be in the range of O to 3 and 
refers to the following: . 

- Solid (default) 

1 - Dotted 

2 - Dashed 

3 - Dot-Dashed. 
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FILLJTYPE (VALUE: integer); 



This procedure sets the future fill-type to a specific 
pattern for all future draws of rectangles, arcs, polygons, 
and circles. However, an object will not be filled 
this pattern unless the FILL procedure 

a value of 1 (fill on). 

■ n. 

•• .*■' 
The argument VALUE can be in the 
refers to the following: 



has been called 



range of 0-7 



with, 
witti 



V: 

and 



- Solid Fill (default) 

1 - Verical Hatching 

2 - Horizontal Hatching 

3 - Cross Hatching 

4 - System Dependent 

5 - System Dependent 

6 - System Dependent 

7 - System Dependent 



(coarse vertical cross-hate 
(diagonal hatching C4S deg. 
(diagonal hatching C135 deg 
(close vertical cross-hatch 



hing) 
1) 

ing)>v 



HIGHJLIGHT (ONJ3FF: integer)] 



This procedure sets all future filled 
(rectangle, arc and polygon) to be highlighted by a 
border drawn around the object. 



objects 
solid 




•t. 






wit) 9 ** 



}■ .. 



V." 



t. » .. V 




The argument ON_OFF can have a value or 1, where O » 
off (default) and 1 ■ on (highlight). 

LINE_WIDTH (DX, DY: integer); 

This procedure defines the line width for future draws 
of point, line, arc, circle and polygon. 

The arguments DX, DY are the width of the future draw. 



,"<•■#• 





■&#/ 
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TEXT SUBROUTINES 





- ' T*-i: 


«.>./•. ■ *"■* - . 




^"■^V^'.V"*.-;. 


■'-"•' i .-v.- 










?v •.•!: ■*'-:,->* 


!'*<■ ^ * 


'.;-,^ : ^ 


:?"■'•' 



- ♦'•.>•" 






■■:-^- 



TEXT (N.: integer, VAR CHARS: ARRAY CO. . N3 OF CHAR); 

This procedure displays a string of ASCII characters, 
starting at the Current Draw Position. 

The attributes affecting text output are: CHAR SIZE/ 
CHAR_SPACE, CHARJ.INE, CHARJ?OTATION, CHAR PATH," and 
SEL^COLOR. 

The displayable ASCII characters are in the range of 20 
(hex) to 7F (hex). 

If SET.POINT is not issued before the next draw and the 
cursor is off, the Current Draw Position is the end of the 
text string. 




CHAR_SIZE (DX, DY: integer) 

j. This procedure defines the size of the character field 
%idth (relative DX) and height (relative DY) for all future 
text output. 



CHAR_SPACE (VALUE: integer); 

This procedure sets the spacing between all future text 
characters. 

The argument VALUE refers to the following: 

O-l (default) 

1 - 1.2S 

2 - 1. SO 

3 - proportional 







CHARJ.INE (VALUE: integer); 

This procedure defines the spacing between text lines 
for all future text output. 

The argument VALUE refers to the following: 

- 1 (default) 

1 - 1. 25 

2 - 1. SO 

3 - 2. O 
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CHAR_ROTATION (VALUE: integer >; 

This procedure sets the' rotation of all future text 
output. 

The argument VALUE refers to the following: V : ^ 

"'-'-*. . ■*. * - -.»*»- 

CHAR_PATH (VALUE: integer); .' ^ 

This procedure sets the character path for all future^^^itt- 
text output. . - ^ ^.^ > 



0-0 degrees (default) 
1-90 degrees 
2 - 180 degrees 



3 - 270 degrees K * • ' i-/>-* *;..-^/ 



The argument VALUE refers to the following: 

O, - Right (default) 

1 - Left 

2 - Up 

3 - Down 




■>/0--; 







V ,1 ■ 



*>v^,> "'>■■: 









^w»'.',- -«■•■* :.*.. 



■r^^^S^ ■^■- ' X- 



■!«*»' ■:■*: 







( APPENDIX A 

SAMPLE APPLICATION PROGRAMS 









^ 




/ 



ri. 







7" 



SAMPLE PASCAL PROGRAM 



PROGRAM LIBRARYTEST; 

TYPE 

POLYARY=ARRAYCl. . 3123 OF INTEGER; 
TEXTARY=ARRAYC1. . 3123 OF CHAR; 



PAGE A-2 






* 



VAR 

CHAROUT: TEXTARY; 



<* The following list of external procedures are 
(* in the Graphics Library. 



found *) 
#) 



; 







PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEUDRE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 



DOMA I N ( RES : I NTEGER ) ; EXTERNAL; 

SET_POINT ( X, Y: INTEGER ) > EXTERNAL; 

CURSOR < ONJ3FF, STYLE: INTEGER ) ; EXTERNAL; 

SET_CURSOR (X, Y: INTEGER); EXTERNAL; 

POINT; EXTERNAL; 

LINE_REL (DX, DY: INTEGER > ; EXTERNAL; 

RECTANGLE ( DX, DY: INTEGER ) ; EXTERNAL; 

POL YGON(N: INTEGER; VAR DXY: POLYARY); EXTERNAL; 

ARC ( DX 1 , DYl , DX2, DY2: INTEGER ) ; EXTERNAL; 

CIRCLE(DX, DY: INTEGER); EXTERNAL; 

SEL .COLOR < VALUE: INTEGER ) ; EXTERNAL; 

SETJTQLOR (RED, GREEN, BLUE: INTEGER ) ; EXTERNAL; 

FILL ( ONJ3FF: INTEGER ) ; EXTERNAL; 

LINE.STYLE ( VALUE: INTEGER ) ; EXTERNAL; 

F I LL_TYPE < VALUE : I NTEGER ) ; EXTERNAL; 

HIGH_LIGHT ( ONJ3FF: INTEGER ) ; EXTERNAL; 

LINE_WIDTH(DX, DY: INTEGER); EXTERNAL 

RESET JSCREEN; EXTERNAL; 

CLEAR; EXTERNAL; 

TEXT <N: INTEGER; VAR CHARS: TEXTARY); EXTERNAL; 

CHAR_SIZE(DX, DY: INTEGER ) ; EXTERNAL 

CHAR_SP ACE ( VALUE: INTEGER ) ; EXTERNAL; 

CHAR JLINE < VALUE: INTEGER ) i EXTERNAL; 

CHAR_ROTATION ( VALUE: INTEGER ) ; EXTERNAL; 

CHAR ..PATH ( VALUE: INTEGER ) ; EXTERNAL; 



PROCEDURE PAUSE; 




VAR 

CHAR_IN: CHAR; 



BEGIN 

WRITE(output, 'Hit 

PROMPT< output); 

READLNC input, CHAR_IN); 
END; (* PROCEDURE PAUSE 



a character and return to continue: '). 



*) 



SAMPLE PASCAL PROGRAM 



PROCEDURE TESTJ»OINT; 



v 
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BEGIN 

SEL_C0L0R<1); 
SET_COLOR ( 255, 0,0); 
SET_POINT <50, 50) 
POINT; 



SEL_C0L0R<2); 
SET_C0L0R ( 0. 255. ) ; 
SET_P0INTC70, 130)) 
POINT; 



'•' .j-.s 



~&'-&£^% ''';'■■■■• .-■'*' 






SEL_C0L0RC3); 
SET .COLOR ( 0, 0. 255 ) ; 
SET_P0INT<190, 110) ; 
POINT; 



SEL_C0L0R<4); 
SET.CQLOR (255, 255, 255 ) ; 
SETJ»0INT<140, 70); 
POINT; 



l 




END; (* PROCEDURE TEST.POINT *) 



PROCEDURE TESTJ.INE; 



BEGIN 

SEL.COLOR(l); 
SET_C0L0R ( 255, 0,0); 
LINE_REL(90, 70); 



SEL_C0L0R<2); 
SET_C0L0R ( 0, 255, ) ; 
LINE_REL<-50, 60); 



> 



.<M 




'.♦r'V .*• 






■m.- 




SAMPLE PASCAL PROGRAM 



SET_P0INT(120, 80); 
SEL_C0LGR(3); 
SET_C0L0R < 2SS, 0, > ; 
LINE_STYLE(0); 
LINE_REL(60»40>; 
... SEL_C0L0R(4); 

SET_COLOR ( 0. 233, > ; 
LINE_STYLE(1); 
LINE_REL(40, -50) 
SELj:0L0R(5); 
SET_C0L0R ( 0, 0, 233 ) ; 
LINE_STYLE(2); 
LINE_REL(-90. -40); 
SEL_C0L0R(6>; 
SET_COLOR ( 233, 233, 233 ) ; 
LINE.STYLEO); 
LINE_REL(-10, 30); 

SET J»0 1 NT (100, 100) j 

LINE_STYLE(0); 

LINEJ4IDTH(10, 10); 

SEL_C0L0R(7); 

SET .COLOR ( 0, 233, ) J 

LINEJRELOO, 30); 

END,- (# PROCEDURE TEST_LINE ♦ ) 

PROCEDURE TEST_RECTANGLE; 
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BEGIN 

SEL_C0L0R(1); 
SET_COLOR ( 233, 0, ) i 
RECTNAGLEOO, SO); 



SEL_C0L0R(2); 
SET_C0L0R ( 0, 233, ) ; 
LINE_STYLE(2); 
SETJ»0INT(20, 100); 
RECTANGLE (30, 30); 




SEL_C0L0R(3); 
SET_C0LQR(0, 0, 233) 
LINE_STYLE(0); 
FILL(l); 

SET_P0INT( 100, 60 ) ; 
RECTANGLE (70, 40); 



• *"\ • > ' 



SAMPLE PASCAL PROGRAM 



SEL_C0L0R(4); 
SET_COLOR ( 255, 255, 255 ) ; 
FILL_TYPE(2); 
HIGH_LIGHT(1); 
SET_PQINT(180, 0); 
RECTANGLE ( 100, 50 ) ; 



END; <* PROCEDURE TEST_RECTANGLE *) 
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PROCEDURE TEST.ARC; 



3EGIN 

SEL_C0L0R(1); 
SET_CGLOR (255, 0, ) ; 
ARC (50, 50, 50,-50); 



a , 






•;-' ; : ,-4i-»,-,-.-- 



SEL„C0L0R(2); 
SET_COLOR ( 0, 255, ) ; 
LINE_STYLE(1); 
SET_POINT<0, 100); 
ARC (50,-50, 50, 50); 



SEL.COLORO) 

SET _COLOR ( 0, 0, 255 ) ; 

LINE_STYLE(0); 

FILL(l); 

SET_P0INT(100, 100); 

ARC (50, -50, 50, 50); 



SEL_C0L0R(4); 
SET.COLOR (255, 255, 255) ; 
FILLJTYPE(l); 
HIGH_LIGHT(1); 
SET_P0INT(100, 0); 
ARC (50, 50, 50, -50); 



END; (* PROCEDURE TEST ARC ♦) 





SAMPLE PASCAL PROGRAM 
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PROCEDURE TEST_CIRCLE; 



■■■xr. 






BEGIN 

SEL_C0L0R < 1 ) ; 

SET _C0L0R < 235, 0, ) ; 

CIRCLE<50# 50); 

SEL_C0L0R(2)i 
SET _COLOR ( 0, 259, ) i 
LINE_STYL£<3); 
SETJ»0INT<0. 100); 
CIRCLEUOO, 0); 



SEL_C0LQR<3); 
SET_CQL0R<0, 0,255) 
LINE_STYLE<0); 
FILLU); 

SET_P0INTU00, 100) 
CIRCLEUOO, 0); 



SEL_C0L0R<4); 

SET _COLOR < 255, 255, 255 ) ; 

FILL_TYPE<3); 

HIGHJ.IGHTU); 

SET_P0INT<50, 50)) 

CIRCLE<50. 0); 



END? (* PROCEDURE TEST_CIRCLE *) 



PROCEDURE TESTJ»GLYGON; 



VAR 

VERT: PQLYARY; 



SAMPLE PASCAL PROGRAM 



■ ' 






' ■ ^ 


'**. 
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BEGIN 

BERTC1J:=50; 

VERTC23:=50; 

VERTC33:»-50; 

VERTC43:»50; 

VERTC53:*50; 

VERTC53:=50; 

VERTC63:»50; 

VERTC73:»30; 

VERTC83:»-50; 

VERTC?3:»SO; 

VERTC103:=50; 

VERTC113:=SO; 

VERTC123:»-30; 

VERTC133:— 50; 

VERTC143:»-SO; 

VERTC153:«50; 

VERTC163:«-SO; 







':-•: t 



SEL_C0L0R<1); 
SET.COLOR ( 233, 0, ) 
FILLC1); 
FILL_TYPE(0); 
POLYGON < 8, VERT) J 



END; (* PROCEDURE TESTJ»OLYGON «> 




BEGIN (♦ MAINLINE #) 



CHAR0UTC1 FOR 
RESET_SCREEN; 
TEST_POINT; 
SEL_C0L0R(5); 
SET_COLOR (233, 0, ) ; 
SETJ»0INT(70, 170); 
CHARTS I ZE( 10, 10); 
TEXT (10, CHAROUT); 



103: » 'POINT TEST 



(* POINT TEST *) 



iVv 



PAUSE; 








••* 
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SAMPLE PASCAL PROGRAM 



CHAR0UTC1 FOR 93: a 'LINE TEST 

RESET_SCREEN; 

TESTJ.INE; 

SEL_COL0R<8); 

SET_COLOR ( 0, 255, ) ; 

SETJ»0INT<70. 170); 

CHAR^SIZECIO, 10) ; 

TEXT (9, CHAROUT); 
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(* LINE TEST *) 



-'RECTANGLE TEST'? (* RECTANGLE TEST ♦) 



PAUSE; 

CHAR0UTC1 FOR 143: 
RESET_SCREEN; 
TESTJRECTANGLE; 
SEL_C0L0R<5); 
SET_COLOR<0, 0, 255) 
SET_P0INT<70, 170); 
CHAR_SIZE<10, 10); 
TEXT (14, CHAROUT); 

PAUSE; 



CHAROUT CI FOR 83: - 'ARC TEST'; (♦ ARC TEST ♦) 

RESET_SCREENi 

TEST_ARC; 

SEL_C0L0R(5); 

SET .COLOR ( 255, 255, 255 ) ; 

SET_P0INT<70, 170); 

CHAR_SIZE<10, 10); 

TEXT < 8, CHAROUT); 



PAUSE; 



CHAR0UTC1 FOR 113: 
RESET_SCREEN; 
TEST_CIRCLE; 
SEL_C0L0R<5); 
SET_C0L0R(255, 255, 0) 
SET_P0INT(70, 170); 
CHAR_SIZE<10. 10); 
TEXT (11, CHAROUT); 



'CIRCLE TEST'; 



(* CIRCLE TEST *) 




PAUSE; 



SAMPLE PASCAL PROGRAM 



CHAROUTC1 FOR 123:=* 'POLYGON TEST 

RESET_SCREEN; 

TEST_POLYGON; 

SEL_C0L0R<2); 

SET_C0L0R<255, 0, 255); 

SET_P0INT<70, 170); 

CHAR_SIZE(10, 10); 

TEXTU2, CHAROUT); 



{:■:.»■■-. 
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(* POLYGON TEST •)'.-.. 







■•'.*• V- ; 



END. (* MAINLINE *) 



DOMAIN, /Dl/Library, 33, 0, 2, 20 
SET_POIN. /Dl /Library. 33, 3. 0, 20 
CURSOR, /Dl/Library, 33, 6. 5, 20 
SET_CURS, /Dl/Library, 33, 9, 0, 20 
POINT, /Dl/Library, 33, 12, 13, 20 
LINE_REL, /Dl /Library, 33, 15. 13, 20 
RECTANGL, /Dl/Library, 33, 18, 13, 20 
POLYGON. /Dl/Library, 33, 21, 13, 20 
ARC, /Dl/Library, 33, 24, 13, 20 
CIRCLE, /Dl/Library, 33, 27, 13, 20 
SEL_COLO, /Dl/Library, 33, 30, 2> 20 
SET.COL0, /Dl/Library, 33, 33, 7, 20 
FILL, /Dl/Library, 33, 36, 0, 20 
LINE.STY, /Dl/Library, 33, 39, 2, 20 
FILLJTYP, /Dl/Library, 33, 42, 2, 20 
HIGHJ.IG, /Dl. /Library, 33, 45, 2, 20 
LINE.WID, /Dl/Library, 33, 48, 0, 20 
RESET_SC, /Dl/Library, 33, 51, 13, 20 
CLEAR, /Dl/Library, 33, 54, 0, 20 
TEXT, /Dl. Library, 33. 57, 3. 20 
CHAR_SI2, /dl /Library, 33, 60, 13, 20 
CHAR_SPA, /dl /Library, 33, 63, 0, 20 
CHAR_LIN, /dl /Library, 33, 66, 0, 20 
CHAR_RQT, /dl /Library, 33, 69, 0, 20 
CHAR _P AT, /dl /Library, 33, 72. 0, 20 




% 








SAMPLE BASIC PROGRAM 






*£ ' 



>*Ov* 



.jfjS.Vii*: 
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IJhrlru ?k XS a M " pU 8ASIC P"*™- ««ing the graphics 

rectangles 2? C h '11'"* ^^ * S6rieS °* "Centric 
'in^Jh Ih. 1 ^° me P r °9 res si^ly smaller as they 
approach the centre of the screen. y 

PROCEDURE BASIC TEST 
DIM I: INTEGER "" 



PRINT CHR4H27); 
RUN INITIALIZE 
RUN RESET_SCREEN 



CHR*(S2)i CHR*(27),- CHR*(83>; 



RUN SEL_C0L0R(1) 

RUN SET_C0L0R(233, 0, 0) 

RUN LINE_STYLE(0) 

FOR 1=0 TO 100 

RUN SET_POINT( 127-1, 103-1) 
RUN RECTANGLE (1+1,1+1) 

NEXT I 

RUN SEL.C0L0R(2) 

RUN SET^COLORCO, 233, 0) 

RUN LINE_STYLE(1) 

FOR 1=0 TO 90 

RUN SET_POINT( 127-1, 10S-I) 
RUN RECTANGLE(I+I, I+I) 

NEXT I 



RUN SEL_C0LQR(3) 

RUN SET_COLOR(0, 0, 235) 

RUN LINE_STYLE(2) 

FOR 1=0 TO 80 

?f RUN SET J>0 1 NT (127-1, 105-1) 
.:>RUN RECTANGLE (I+I, I+I) 

NEXT I 



RUN SEL_C0L0R(4) 

RUN SET_C0L0R(2S3, 233, 233) 

RUN LINE_STYLE(3) 

FOR 1=0' TO 70 

RUN SET_POINT( 127-1, 103-1) 
RUN RECTANGLE (I+I, I+I) 
NEXT I 




RUN SEL_C0L0R(5) 

RUN SET _COLOR ( 0, 0, ) 

RUN LINE_STYLE(1) 

FOR 1=0 TO 60 

RUN SET_POINT( 127-1, 103-1) 
RUN RECTANGLE (I+I, I+I) 

NEXT I 



END 
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Hf 










APPENDIX B 
REMOTE/LOCAL PROTOCOL 




At 



ii..: ; ^^ 






:*>r ; 



".:.*'''- Sit 








. V*::. .if' 



••.*'. 













.**V : \ 




■%:. 




' REMOTE/LOCAL PROTOCOL 
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,a^,I !.? 0ll0Win9 P rot °col assumes that only text files 
(ASCII files with only <CR>, <LF>, <FF> and/or <TAB> control 
characters) and PDI files ar 9 to be transmitted over the 
Unk. Standard ASCII control characters av^ used. Paritu 
is removed from the data and all control characters plus 
<DEU> are translated into two-character sequences: <T}LE> 
followed by the control character XQRed with character 3 
All transfers operate through standard terminal drivers* 
therefore all control sequences require a <CR> terminator. 

PROTOCOL 



t«^4«!i t !k P ' th * locaI Pressor appears as a normal 
terminal to the remote processor. Each character entered bu 
the operator is transmitted, with no error checking, to the 
remote end which can echo them as required. The local 
processor continuously scans the data received from the 
remote end until it recognizes a SOH character. This 
character signals that a data transfer is in progress and 
passes control to the data transfer software. Data is 
transmitted between processors in packets of up to 63 data 
bytes as follows: 



•:,-t*. 



<SOHXbyte countXcontrol byte> .. data .. <lrcl><lrc2><CR> 



.1 " 



where byte count is a binary number between and 63 

defining the number of data bytes 
in this packet. If the count is in 
the CO set it is translated to the 
GO set by ORing it with S. 

control byte is a byte encoded as follows: 




Bits Meaning 

0-4 9 sequence number (0-31) or 
file type depending on the 
contents of the data type 
field 

3-6 a data type field 

1 « File data 

2 » SEND filename 

3 a ACCEPT filename 



■.'>>' •'■ 



REMOTE/LOCAL PROTOCOL 



t- ~' : df. 



paoe;;b-3 



lrc bytes are a longitudinal redundancy check 

including all bytes after the SOH'' 
but excluding the lrc. The lrc is/ 
12 bits long and is split into 2 
consecutive bytes. If either byte.; 
is in the CO set (octal to octal \ : , 
37) it is translated into the GO ■ 
set (octal 40 to octal 177) by 
ORing it with S. 

The data included in a packet is either a filename or 
file data* depending on the contents of the control byte. 
All packets are variable length, with the amount of data in 
a packet determined by the associated byte count. 

After assembling a data packet, the receiving processor 
determines whether an error has occurred. If the packet is 
received successfully, an 'ack' is transmitted to the other 
processor (thus indicating another data transfer). If an 



error is detected in the 
the other processor 
the packet). An 'ack' 
<DC4> <CR>. 



packet, a 'nak ' is transmitted to 
(thus initiating a re-transmission of 
is actually <ENQ> <TCR> and a 'nak' is 









Detectable error conditions are: 



LRC error 
Sequence error 



(longitudinal sum) 



% 



LRC errors force a re-transmission of the packet. 
Sequence errors are uncorrectable and therefore result in an 
abort of the current file transfer (with a message to the 
operator). 






Sequence numbers are used to tag each packet in a file 
transfer. The sequence number is reset to when a filename 
packet is received successfully and is incremented each time 
a packet has been transmitted successfully (modulo 32). If 
there is a sequence error* the receiving processor transmits 
an <EOT> <CR> to force the transmitting processor to abort 
the transfer. 



The sequence number bits in the control 
filename packet define the type of file being 
Currently there are two file types: 



byte of a 
transferred. 



- PDI 

1 - ASCII 



This information is used by the receiving processor as 
required. It is used by the RSX-11M transfer routines to 
create ASCII files with variable length records. 



■*• fi: 
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FLOW CONTROL 

During data transfers, no flow control is necessary 
because the transmitter never sends data until the previous 
packet is 'aeked' by the receiver. However, the same is not 
true when the local processor is acting as a terminal to the 
remote end. Therefore, the local processor can use CD1 and 
DC3 to achieve flow control in a standard format 
recognizable by operating systems such as RSX-11M and RT-11 
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VIDEOTEX PRESENTATION LEVEL PROTOCOL 



Videotex 
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The alpha-geometric Telidon system uses text characters 
and simple geometric 3hapes called primitives to define the 
image, 30 that the picture is built up in finely detailed 
areas rather than line by line. The geometric shapes and 
text characters are described by Picture Description 
Instructions (PDIs) which comply to an industry videotex 
protocol. Both the PDIs and the protocol are described 
the following two sections. 



in 



Picture Description Instructions 



J ..„,: 



Picture Description Instructions are concise codes used 
define graphic primitives (shapes) in Telidon pictures 
codes are formed from the 7-bit* 128-eharacter ASCII set 
comply to OSI communications protocol. The user does 
need any special knowledge of the protocol or the 
structure. However. if further details are required 
are given in the Videotex Standard referred to in 
following section. 



to 
The 
and 
not 



code 

they 

the 



The PDIs define graphical and textual information in a 
concise alpha-geometric code set. Th» code set consists of 
the primitive identifier* its attributes. and 
location data. The primitive is the graphic 
attribute are its color, whether it is to be 
outline or filled, and the text size and its 
numeric location data defines the screen 
which the primitive is to be located. 



numeric 
shape, the 
drawn in 
rotation; the 
co-ordinates on 



Videotex Protocol 



is' 



C 




To- promote compatibility in videotex information 
systems the Bell System has adopted a presentation level 



protocol. The protocol is defined in a document that 
concerned with the definition of the "formats, rules, 
procedures adopted for the encoding of text, graphics, 
display control information for videotex applications", 
document is highly technical and will not be of interest 
most users. 



is 
and 
and 
The 

to 



Should you be interested in the technical details of 
videotex protocol, further details can be obtained from 
either of the following sources. 
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The AT%T document title: it: 

, Pt e*en ta ti on ; Level Pr o t o c o 1 

and further information can be obtained through: 

J|*«*9er' information Management Planning 

" ' !s *jn4 ilDe^lo^a^ln t 

American Tel ej> hone and Telegraph Company 

^ Wood 'No 1 io^ Road 

Parsippany .''jNQ 070S4 






The DOC document title is: 

Telidon Videotex Presentation Level Protocol; 
^^Mn^f9^^^^« Description Instructions 
C*C X tf chhiiM Nbte 709 

and fur^hep information can be obtained through: 

Department o£. Communications 
irif $riMt$^s^'d«Mi"c ea 

?G>^;'fia*er ; S#r v " 
of|a^V ^|tifio K1A oca 
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